﻿Imports DTO
Imports BUS
Public Class frmThemQuanLy

    Public maBP As String
    Public TenBP As String
    Public GhiChu As String
    Public ConQL As Integer

    Public kt As Integer = 0

    Private Sub btnLuu_Click(sender As Object, e As EventArgs) Handles btnLuu.Click
        Dim BoPhanDTO As New BoPhanDTO
        If kt = 1 Then
            BoPhanDTO.MaBoPhan = txtThemMaBP.Text.Trim()
            BoPhanDTO.TenBoPhan = txtThemTenBP.Text.Trim()
            BoPhanDTO.GhiChu = txtThemGhiChu.Text.Trim()
            If chkConQuanLy.Checked = True Then
                BoPhanDTO.MaTrangThai = 1
            Else
                BoPhanDTO.MaTrangThai = 0
            End If
            If BoPhanBUS.CapNhapBoPhan(BoPhanDTO) Then
                DevExpress.XtraEditors.XtraMessageBox.Show("Bạn cập nhập thành công", "Thành công", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Else
                DevExpress.XtraEditors.XtraMessageBox.Show("Tên bộ phận không được để trống", "Lỗi", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End If
        Else
            BoPhanDTO.TenBoPhan = txtThemTenBP.Text.Trim()
            BoPhanDTO.GhiChu = txtThemGhiChu.Text.Trim()
            If chkConQuanLy.Checked = True Then
                BoPhanDTO.MaTrangThai = 1
            Else
                BoPhanDTO.MaTrangThai = 0
            End If
            If BoPhanBUS.ThemBoPhan(BoPhanDTO) Then
                DevExpress.XtraEditors.XtraMessageBox.Show("Bạn đã thêm thành công bộ phận mới", "Thành công", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Else
                DevExpress.XtraEditors.XtraMessageBox.Show("Tên bộ phận không được để trống", "Lỗi", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End If
        End If
    End Sub

    Private Sub SimpleButton2_Click(sender As Object, e As EventArgs) Handles SimpleButton2.Click
        Me.Close()
    End Sub
End Class